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TITLE LI BSF R006 - Entondeg multiply and integerize G 
E IDENT /1-003/ 3; File: tT IBEmope MAR Bait: $BL1003 


PAAR RARARASLALALALALALALALALE ESLER SAREE RRR RRA EERE EE REE RRR E RE EERE RR RRR SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH OF SUCH LICENSE AND WITH THE 
INCLUSION OF T VE COPYRIGHT NOTICE. THIS SOFTWARE 0 N 

COPIES THEREOF oa rahe BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. TITL 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
orp eokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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"FACILITY: General Utility Library 
ABSTRACT: 


Extend precision of multiplier, apts toty by avittet Scand 
and extract integer and fractional portion of result 


ENVIRONMENT: User Mode, AST Reentrant 


“AUTHOR: Steven B. Lionel, CREATION DATE: 05-Feb-79 
: MODIFIED BY: 
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s 
45 s3 
46 ; 1-001 = Origina SBL 
23 3 1-009 = F - Fi in geaments. gat A | -1979 
48 ; 1-005 - use local handler to resignal encept lene osher Mt those documented 
a4 $3 3 as being returned as statuses. 25-Sept-1 
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~SBTTL DECLARATIONS 
INCLUDE FILES: 


SCHF DEF 3; Condition Rendl ine macros 
SSSDEF System symbol definitions 


EXTERNAL SYMBOLS: 


ggyres lth 


-EXTRN LIBSSIG_TO_RET Library routine to convert a signal 
; t9 orree at return to caller 


MODG. 
RO = signaled condition 


MACROS: 


EQUATED SYMBOLS: 


00000004 ; multiplier 


3 lier 
00000008 mulrx = 3; multiplier extension 
0000000C muld = 12 : multiplican 
00000010 int = 16 ; integer portion returned 
00000014 fract = 20 3 fractional portion returned 
> OWN STORAGE: 
000 H 
+44 ; PSECT DECLARATIONS: 
0000 000 . -PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, 
00 EXE, RD, NOWRT, LONG 
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SEP= LIBRTL.SRCJLIBEMODG.MAR; 1 
= -SBTTL LIBSEMODG = Extended multiply and integerize 
: FUNCTIONAL DESCRIPTION: 


i ISSERODG provides the functionality of the VAX hardware 
nstruction EMODG to high-level language users. 


The floating point multiplier extension operand (second operand) 
is concatenated with the floating point multiplier (first 
Sperene: to gain 11 additional low order fraction bits. 

The eur bie! teens operand is oul iol ed by the extended 
multiplier operand. After multip fecten. the integer 
portion is extracted and a 64 bit floating point number is 
formed from the fractional part of the product by truncating 
extra bits. The multiplication is such that the result is 
gquiyatens to the exact product truncated to a fraction 
field of 64 bits. Regarding the result as the sum of an 
integer and fraction of the same sign, the integer operand 
is replaced by the yond, af part of the result and the 
fraction operand is replaced by the rounded fractional 

part of the result. 


CALLING SEQUENCE: 


status.wlc.v = LIBSEMODG (mulr.rg.r, mulrx.rw.r, muld.rg.r, 
int.wl.r, fract.wg.r) 


INPUT PARAMETERS: 
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mulr.rg.r - floating point multiplier 
mulrx.ftw.e - word to be appended to multiplier fraction 
muld.rg.r - floating point multiplican 
5 IMPLICIT INPUTS: 
NONE 
0 OUTPUT PARAMETERS: 
int.wl.r - integer portion of result 
fract.wg.r - fractional portion of result 
6 IMPLICIT OUTPUTS: 
$ NONE 
09 FUNCTION VALUE: 
00 SS$_NORMAL - successful execution 
SS$_INTOVF - integer overflow or floating overflow 
SS$_FLTUND - floating underflow 
$S$_ROPRAND - reserved operand 
; SIDE EFFECTS: 
ALL other exceptions are signalled. 
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ati LIBSEMODG - Extended multip — € © tag g-§ sats yi 90: 88: 8 YaRTe L.S SC IBEM ODG.MAR;1 ° (4) Tat 
| tea 
4000 ! -ENTRY LIBSEMODG, “M<IV> 3; Entry point 
6D 16°AF  9E 154 MOVAB B*“HANDLER, (FP) 3; Enable local handler to 
° 13? 3; process exceptions 
10 BC OC BC 08 BC % 4! 54FD : 138 EMODG a@mulr(AP), - ; perform multiplication 
01 15 @mulrx (AP), 3; trap on exception to 
01 138 eds bee - : hontisr which will 
4 160 aint (AP 3 unwind a return orrer 
1 161 Strect cap). : condition in R 
4 166 ; caller of LTeSEMGDS. 
50 O01 QA Bat 196 MOVZBL #1, RO 3 success status code 
04 001 196 RET 3 return 
0016 16 
0016 198 HANDLER: 
0000 001 18 -WORD 0 
001 170 
001 171 34 
001 Ha 3 If the exception is one of the documented exceptions for this routine, 
001 173 ; call LIBS$SIG_TO_RET to return it as a status. Otherwise, resignal. 
001 174; Also, resignal Tf the depth is not zero. 
Ig 
50 O08 AC DO S18 177 MOVL CHFSL_MCHARGLST(AP), RO ; Get mechanism vector address 
08 AO DS OOI1C 178 TSTL CHF SL_MCH_DEPTH(RO) : Is depth zero? 
32. 12 #+OO1F §@ 179 BNEQ 90$ ; If not, resignal 
51 04 AC DO 0021 189 MOVL SHE SL SIGARGL ST (AP) . RI ; Get signal vector address 
50 04 A1 00 3 5 181 MOVL CHFSL_SIG_NAME(R1), RO 3; Get signalled gene tion 
047C 8F 50 861 9 13 CMPW RO, #5S$ $INTOVE ; Compare conditio 
18 13 00 1 BEQL 10$ ; If it matches, don’ t resignal 
049C 8F 50 61 00 184 CMPW RO, #SS$_FLTUND 
14 13 00 185 BEQL ~=s«*108 
0454 8F 50 «Bl 0 186 CMP RO, #SS$_ROPRAND 
0D 13 0 C 187 BEQaL ~=:«410 
04C4 8F 50 —s «Bl \33 CMPW RO, #SS$_FLTUND_F 
OE 12 0043 189 BNEQ 908 
04 A 049C 8F 3C 004 190 MOVZWL #SS$_FLTUND gs _SIG_NAME(R1) ; Change fault code to trap code 
09600000" GF 6C fe O3¢ 13 10$: cee (AP)? G6*L1B$SIG_T O-RET™ ; Return signal as a status 
50 0918 8F if 098 138 90$: MOVZWL #SS$_RESIGNAL, RO ; Resignal condition 
04 28 194 RET 
8 5 195 
59 = 196 ~ END 


LIBSEMODG 
Symbol table 


The working 
21526 bytes 
There were 3 


94) Limit was 1050 pages 


ros. 


CHFSL_MCHARGLST = 
CHFSL-MCH DEPTH s 
CHF SL-SIGARGLST 2 
CHFSL_S1G_NAME = 4 
FRACT = 4 
HANDLER 16 R 02 
INT = 1 
LIBSEMODG 00 RG be 
LIB$SIG_TO_RET teeneeee =X | 0) 
MULD = 68 C 
MULR = 4 
eeEne = 8 8 
SS$_FLTUND = C 
SS$_FLTUND_F = 00 rf, 
SS$_INTOVF = 000004 4 
SS$_RESIGNAL = 0000091 
SS$_ROPRAND = 00000454 
| ee + 
! Psect synopsis ! 
or + 
PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 0.) 00 ¢ O.) NOPIC  USR 
ABS$ 00060000 0.) Q1 1.) NOPIC  USR 
_LIBSCODE 00009059 (¢ 89.) 02 PIC USR 
eo + 
! Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization $9 00:00:00.9 00:00:00.75 
Command processing 107 00:00:00. 00:00:02.27 
Pass 192 88: 0:02.7 BR BO 4 $? 
Symbol table sort 0 0:00:00.41 0:00:01.51 
Pass 2 52 0: 8: 25 0: BF 8 
Symbol table output 4 b:8 : 5°8 0:00:0 23 
Psect synopsis output 3 0:00:00.01 0:00:00.0 
Cross-reference output Ba Ob a be ee SE BSD 
Assembler run totals 388 0:00:04.07 0:00:17.75 


non-local 


CON 
CON 
CON 


pages) of virtual memory were used to buffer the intermediate code 

pages of symbol table space allocated to hold 428 

196 source lines were read in Pass 1, produc ing 13 object records in Pass 
mac 


and 2 
pages of virtual memory were used to define , 


ABS 
ABS 
REL 


LCL 
LCL 
LCL 


NOSHR NO 
NOSHR 
SHR 


Local symbols. 


XE 
XE 
XE 


-0 
MOD 


NORD NOW 
RD W 


RD NOWRT NOVEC LONG 


0 
G.MAR; 1 


RT NOVEC BYTE 
RT NOVEC BYTE 
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VAX-11 Macro Run Statistics 
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! Macro Library statistics ! 


eer en we neem neon s ase eee e meee + 


Macro Library name Macros defined 
“$255$DUA28: CSYSLIBJSTARLET.MLB;2 5 
486 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 
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